﻿Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ObjetoAerolinea As New Aerolineas.Negocios.Aerolinea
        Dim id As Integer
        id = Val(TxtID.Text)
        MessageBox.Show(ObjetoAerolinea.ConsultarRutas(id))
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class
